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LOADHR G = LOAD MBA AND UBA MAP REGISTERS 1 SEP 1984 00:29:5 YAX/vits Macro v04-00 Page ; 
v04= LOAD MASSBUS ADAPTER MAP REGISTERS =SEP=1984 03:44:1 SYS.SRCJLOADMREG.MAR; 1 (1) 
é : .SBTTL LOAD MASSBUS ADAPTER MAP REGISTERS 
4 + IOCSLOADMBAMAP = LOAD MASSBUS ADAPTER MAP REGISTERS 
§ ; THIS ROUTINE IS CALLED TO LOAD THE MASSBUS ADAPTER MAP REGISTERS, THE 
of BYTE COUNT REGISTER, AND THE VIRTUAL ADDRESS REGISTER. 
63 t INPUTS 
71 ; R4 = ADDRESS OF MBA CONFIGURATION STATUS REGISTER. 
f ; R5 = UCB ADDRESS OF UNIT TRANSFER IS TO OCCUR ON. 
99 ff t OUTPUTS: 
00 i: ; THE TRANSFER BYTE COUNT, STARTING PAGE OFFSET, AND ADDRESS OF THE 
0 77; PAGE TABLE ENTIRES THAT DESCRIBE THE TRANSFER ARE RETRIEVED FROM 
99 28 ; THE SPECIFED UCB AND USED TO LOAD THE BYTE COUNT, VIRTUAL ADDRESS, 
79 : AND MAP REGISTERS. ONE ADDITIONAL MAP REGISTER IS LOADED AS INVALID 
44 ? 3 TO STOP THE TRANSFER IF A HARDWARE FAILURE SHOULD OCCUR. 
909 j ; R3 1S PRESERVED ACROSS CALL. 
000 s= 
0000 i 
00000000 5 .PSECT WIONONPAGED 
0000 6 1OCSLOADMBAMAP: : sLOAD MASSBUS ADAPTER MAP REGISTERS 
53 oD 909 7 PUSHL R3 [SAVE REGISTERS 
52 7E AS) = 3C-—s«000 8 MOVZWL UCB$W_BCNT(RS5) .R2 'GET TRANSFER BYTE COUNT 
10 Ad 52 E 0006 9 MNEGL R2,MBASL_BCR(RS) ‘LOAD BYTE COUNT REGISTER 
51 7CA € OO0A 0 MOVZWL UCB$W_BOFF(RS).R1 :GET BYTE OFFSET IN PAGE 
OC A4 31 D0 0g 91 MOVL  R1,MBASL_VAR(R4) [LOAD STARTING VIRTUAL ADDRESS 
0c a6) 6651S s«és«é001 3 MOVL 1 MBASL VAR(R4) :eeeeeTEMP UNTIL MBA ECO teeeee 
52 OIF 24 9 0016 9 MOVAB *X{FFC(ROTLRIIJ,R2 SCALCULATE HIGHEST RELATIVE BYTE AND ROUND 
52. 52 7 8F 7 o1¢ 94 ASHL R2,R2 *CALCULATE NUMBER OF MAP REGISTERS TO LOAD 
51 0809 C4 OE 1 95 MOVAL MBA$L_MAP(R4),R1 [GET ADDRESS OF MBA MAP REGISTERS 
50 AS DO 0026 9% MOVL UCBSL~SVAPTE(R5) ,RO [GET ADDRESS OF PAGE TABLE 
81 80 DO 002A 97108: #MOVL (RO)+7(R1)¢4 ‘LOAD MAP REGISTER 
9 1 0 D = so&98 BGEQ 30S :IF GEQ PTE INVALID 
F852 s«O«#F F 99 208: SOBGTR R2,10$ SANY MORE TO LOAD? 
61 D4 6 2 100 CLRL CR) [LOAD INVALID MAP ENTRY 
53 BE b0 6 4 1 HOVL (SP)+,R3 SRESTORE REGISTER 
53 FCA 06 038 108 30$: MOVL  -4(RO),R3 [GET THE PTE (NOT FROM MAP REGISTER!) 
009 9 C 104 BSBW 1OCSPTETOPFN [GET PFN FROM INVALID PTE 
FC Al 53 80000000 af c3 Ha 105 BISL3 #7 480000000,R3.-4(R1) SAND LOAD THE MAP REGISTER 


2 
LoAonR G LOAD MBA AND UBA MAP REGIST as so SEP=-1 384 9: ¢?: 33 yee Macro V04-00 Page % 
v04-0 LOAD UNIBUS ADAPTER MAP REGISTERS P=1 SYS.SRCIJLOADMREG.MAR; 1 (1) 


4A 19 - .SBTTL LOAD UNIBUS ADAPTER MAP REGISTERS 
6A 1 p : 1OCSLOADUBAMAP = LOAD UNIBUS ADAPTER MAP REGISTERS 
4A 111 : IOCSLOADUBAMAPA = LOAD UNIBUS ADAPTE ISTERS ALTERNATE ENTRY FOR 
4A 116 ; BYTE ALIGNED UNIBUS DMA DEVICES WHICH NEVER WISH TO SET THE BYTE 
4A 113: OFFSET BIT IN MAP REGISTERS. IN ALL OTHER RESPECTS THESE TwO 
4A 114 ; ENTRYPOINTS PRODUCE IDENTICAL RESULTS. 
ach 118 : THIS ROUTINE IS CALLED TO LOAD THE UNIBUS ADAPTER MAP REGISTERS. 
re 118 : INPUTS: 
oA O RS = UCB ADDRESS OF UNIT TRANSFER IS TO OCCUR ON. 
aC : ; IT IS ASSUMED THAT THE DATAPATH AND MAP REGISTERS HAVE BEEN PREVIOUSLY 
O04A 33 ASSIGNED. 
si ! 5 ; OUTPUTS: 
046A 1 ; EACH MAP REGISTER IS LOADED WITH THE APPROPRIATE PAGE FRAME NUMBER 
004A 128: MERGED WITH THE DATAPATH DESIGNATOR AND BYTE OFFSET BIT. ONE ADDITIONAL 
04A 129: MAP REGISTER IS LOADED AS INVALID TO STOP THE TRANSFER IF A HARDWARE 
O04 9 ; FAILURE SHOULD OCCUR. 
04A 1 g ; R3 1S PRESERVED ACROSS CALL. 
ocak 
004A 135 .ENABL LSB 
004A 1 é 1OCSLOADUBAMAPA: : ;LOAD UNIBUS ADAPTER MAP REGISTERS - ALTERNATE 
004A 1 : HERE WE DUPLICATE THE CODE IN THE OTHER ENTRY 
004A 1 : : EXCEPT THAT WE DO NOT CHE CK WHETHER THE BYTE 
04A 1 : OFFSET IS OpDe INSTEAD WE BRANCH DIRECTLY 
4A 140 : PAST THE SETTING OF THE BYTE OFFSET BIT. 
7E 53 7D 004A 141 MOVQ = R3, = (SP) SAVE REG i RS 
51 7C AS 3C 0040 148 MOVZWL UCBS$W_BOFF(RS).R1 :GET BYTE OFFSET IN PAGE 
52 76 AS «O3C CO0S1séd14 MOVZWL UCB$W~BCNT(R5) .R2 'GET TRANSFER BYTE COUNT 
53 24. a5) «=O 0055S 14% MOVL tat the CRB(RS) R3 GET ADDRES OF C 
99 EF 099 145 EXTZV aVECST_DAT DATAPA tH. - GET DATAP 
54 37 Ad 3¢ 123 FRBSL_ TNID*VECSS, “parapariioene 
1B O11 F 148 BRB 0$ BRANCH AROUND TO JOIN COMMON CODE 
61 149 IOCSLOADUBAMAP: : tLOAD UNIBUS ADA PTER MAP REGISTERS 
7E 53° «7D 1 150 mova 3,-(SP) SSAVE REGISTERS 
51 CA C 4 151 MOVZWL UCBs _BOFE (RS) .RI ‘GET BYTE OFFSET IN PAGE 
é 7E A ¢ a 13¢ MOVZWL UCBS$W~BCNT(R5S) .R2 :GET TRANSFER BYTE COUNT 
5 A500 $ 1 VL UCBst CRB(RS) R3 [GET ADDRESS OF CRB 
9 EF 154 EXT2V #VEC V_DATAPATH, ~ ;GET DATAPATH 
72. «155 #VECSS~DATAP ER 
54 37 A g 1 : CRBSL_INTD+ AVECSE. DATAPATH(R ),R4 
3 5) £9 1 BLBC ~=E—.-s«&aR 1, 108 Loc WORD ALIGNED TRANSFER 
54 10 79 «1 : BISB #*k10,R4 [SET BYTE OFFSET BIT 
54 0400 BF A 7¢ «#6159 10S: BISW #*x406,R4 :RERGE VALID WITH BYTE OFFSET AND DATAPATH 
E 1 160 BBC #VECSV_LWAE,- WAFL LONGWORD ACCESS NOT ENABLED 
03 37 A 3 16 CRB INTD +VECSB _DATAPATACRS). a 
2 ou cost $6 0089 168 158: ROVAB xtFF(RA)ERII,R2 Eat tutate nigaest RELATIVE BYTE AND. ROUND 
53 33 ‘5 8F 4 F164 ASHL #-9,R2,R2 TCALCULATE NUMBER OF MAP REGISTERS TO LOAD 
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ee 
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v0 LOAD UNIBUS ADAPTER MAP REGISTERS -SEP=1 144: SYS. SRCJLOADMREG.MAR; 1 (1) vO 

36 A 52 91 0094 165 CMPB R CRBSL_INTD+VECSB_NUMREG(R3) ; ENOUGH MAP REGISTERS ASSIGNED? 

g 3 98 166 BGEQU 40§ “IF GEQU 
51 3883 D 9A 16 MOVL acRBSL INTD*VECSL _ADP(R35,R1 :GET NADDRESS OF CONFIGURATION REGISTER 

00 EF Hi 168 EXTZV #VECSV"MAPREG,- :GET STARTING REGISTER 

F OA 1g aVECSS” MAPREG,~ 
50 34 A Ai 170 BSL_INTD+VECS$W_MAPREG(R3) ,RO 

51 0800 c14 DE OAS 171 MOVAL UBASL“MAP(R1)CROJ,R1 GET ADDRESS OF FIRST MAP REGISTER TO LOAD 

50 78 AS DO OOAA 1% MOV UCBSL~SVAPTE (RS) ,RO [GET ADDRESS OF PAGE TABLE 

80 DO OAE 173 208 MOVL  <RO)#7R :GET NEXT PAGE TABLE ENTRY 

02 19 174 BLSS  30$ TIF LSS VALID PAGE TABLE ENTRY 

iF 10 083 175 BSBB  =—«IOCSPTETOPFN [GET PFN FROM INVALID PTE 

53 0B 15 34 FO 008 1% 30$ INSV =—s- RG, #21, #11, R3 SINSERT VALID, BYTE OFFSET, AND DATAPATH 
81 x 09 OBA 1? MOVL RB, (RIS+ 'LOAD UBA MAP REGISTER 
ee 52 «=F5 = O0BD 178 SOBGTR R2.20$ SANY MORE TO LOAD? 
61 bs 00C 17 CLRL cri) LOAD INVALID MAP ENTRY 
53. BE g0 0¢ 180 nova (SP)+,R3 :RESTORE REGISTERS 
006 188 40$:  BUG_CHECK UBMAPEXCED, FATAL “UNIBUS MAP REGISTER ALLOCATION EXCEEDED 
™ ey * 
OOCA 18 DSABL LSB 
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NVALID PTE mit) es ety | TOAD matt: 


SYS.SRCJLOADMREG.MAR; 1 
~SBTTL GET PFN FROM INVALID PTE 
; IOCSPTETOPFN = GET PFN FROM INVALID PTE 


; THIS ROUTINE IS CALLED TO RETURN THE PAGE FRAME NUMBER FROM A 
; PAGE TABLE ENTRY WHICH HAS ALREADY BEEN DETERMINED TO BE NOT VALID. 


: INPUTS: 
: R3 = PAGE TABLE ENTRY 
: OUTPUTS: 


R3 = PAGE FRAME NUMBER AND MAY INCLUDE THE FOLLOWING FIELDS 
VALID BIT, MODIFY BIT, PROTECTION FIELD, OWNER FIELD 


ALL OTHER REGISTERS PRESERVED 


~ENABL LSB 
GLOBAL : 
MOVL @MMGSGL_GPTBASECR3],R3 ;GLOBAL PAGE TABLE ENTRY 
BLSS 10$ ‘BRANCH IF VALID 
canine 


#°C<PTESM_TYP1 ! PTESM_TYPO !- PTE TYPE BITS 
PTESM_GPTR>,R3 yAND GPTX/ 

BBS #PTESU_TYP1 Re, 208 ‘BRANCH +H PBAD PTE FOR 1/0 
nee BBSC #PTESVTYPO.R3.GLOBAL ;BRANCH IF GLOBAL PAGE 


RSB 
208: BUG_CHECK INVPTEFMT,FATAL INVALID PAGE TABLE ENTRY FORMAT 
-OSABL LSB 
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-SBTTL Load UBA map registers 


Hoe 
; LOCSLOADUBAMAPN = Load UBA map registers 
Functional description: 


This routine is called to load the UNIBUS adapter map registers. 

It differs from IOCSLOADUBAMAPN in that it does not obtain its 
variant inputs from the UCB and CRB (which are normally synchronized 
at fork IPL). Also, the byte offset and longword aligned 
capabilities are not supported. 


; Inputs: 


: R1 
i 


buffer address 


R2 = number of map registers allocated 
(Last one should be extra one for wild transfer stopper) 
R3 = aterting map register allocated 
R4 = datapath number 
RS = UCB address 
; Outputs: 


RO-R4 destroyed. R5 preserved. 
OCSLOADUBAMAPN: : 
PUSHL R4 


BEBE EEE FENN I roponoronononononon — 
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DD ; Save datapath number 
_, ae: ee EXTZV S*#VASV_VPN,S“#VASS_VPN,R1,R1 ; Get buffer virtual page number 
54 OQ00000000'GF 00 MOVL G*MMGSGL_SPTBASE ,R4 ; Get system page table a ires 
50 6441 ODE MOVAL (R4)CR1J, ; Get first PTE address 
54 4 aS 00 48 MOVL UCBSL_CRB(RS) ,R4 ; Get CRB address 
54 38 B84 00 49 MOV. acresc INTD*VECS _ADP(R4S,R4 ; Get first UBA register address 
51 0800 C443 ODE 50 MOVA UBASL_MAP(R4)CR3J7R1 ; Get address of first map register 
00000400 8F C9 51 BISL3 #1@<UBASV_MAP_VALID-UBASV_MAP_DPD>,- ; Get datapath number 
54 «OBE 26 (SP)+,R4 ; and set map register valid bit 
> ee 5 DECL R ; Subtract last register from count 
53 80 00 54 20$: MOVL (RO)+,R3 ; Get next page table entry 
02 19 55 BLSS 0$ ; Br if valid page 
74 10 56 BSBB IOCSPTETOPFN ; Get PFN from invalid (global) page 
15 4 F0 57 308: INSV R4,#UBASV_MAP_DPD,- ; Insert datapath and valid bit, 
53 of 58 #32-UBASV_MAP_DPD .R3 ; clearing other PTE flags 
Bi 5 +4 59 MOVL R3,(R1)+ ; Load the map register 
EE 52 SOF 60 SOBGTR R2,20$ ; Loop through ail registers 
61 b 6} cURL (R1) : Invalidate Last one to stop wild xfer 
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US ADAPTER MAP REGISTERS FOR UD ~3Eb= | 382 eT USys. SRCJLOADMREG. MAR; 1 vais (1) | 


et hd 
2 .SBTTL LOAD UNIBUS ADAPTER MAP REGISTERS FOR UDA PORT 

: IOCSLUBAUDAMAP = LOAD UNIBUS ADAPTER MAP REGISTERS FOR UDA PORT 
: INPUTS: 


=> PDT. 

=> CDRP OF 1/0 REQUEST. 

Bi wrrtanrs THAT THE DATAPATH AND MAP REGISTERS HAVE BEEN PREVIOUSLY 
OUTPUTS: 


EACH MAP REGISTER IS LOADED WITH THE > nore ae PAGE FRAME NUMBER 

ee WITH THE DATAPATH DESIGNATOR AND BYTE OFFSET BIT. ONE ADDITIONAL 
REGISTER IS LOADED AS INVALID TO STOP THE OT RANSFER IF A HARDWARE 

FAILURE SHOULD OCCUR. 


R3 IS PRESERVED ACROSS CALL. 


UN 
1 64 
ae 
ae 
1 
159 596 
arr 
155 $58 
01 74 
oi 75 
1 i: 
01 7 
01 78 
01 79 
01 80 
01 81 
01 Be 
01 8 
O157 SRS 
oi 286 IOCSLUBAUDAMAP: : ;LOAD UNIBUS ADAPTER MAP REGISTERS 
7E 53 7D O01 288 MOVQ = R3,,=( SP) :SAVE REGISTERS 
012A 289 
012A 290 ASSUME ADPS EQ 0 
QOEO D4~—SséOWD 3 4 336 PUSHL SP TEC: CADP (RG) ; Push UBA CSR address on stack. 
51 pOAS 3¢ 61 E 38 MOVZWL CDRPSW -BOFF (RS). R1 : RI=BYTE OFFSET IN PAGE 
52 p2 a5) «ODO Cé*OT 394 MOVL  CDRPSLBCNT(RS).R : R2=TRANSFER BYTE COUNT 
50 3C AS) OSE «(0136)=— 295 MOVAB CDRPSL~ ~DBARSRCECR ),RO ; RO => MAPPING RESOURCE DESCRIPTOR 
00 EF O13A 296 EXTZV #VECSV~DATAPATH, - : GET DATAPAT 
05 013¢ 49 297 #VECSS~DATAPATH,- : NUMBER 
54 03 Ad oi p 98 UBMD$B~DATAPATH(RO) ,R4 
0351 +€9 01 9 00 BLBC ——R1,108 7I1F LBC WORD ALIGNED TRANSFER 
54 10 88 O01 01 BISB = #*10 Ra iSET BYTE OFFSET BIT 
54 0400 BF AB 0146 08 10S: BISw #*x406.R [MERGE VALID WITH BYTE OFFSET AND DATAPATH 
52 OFF C2461 9E 0148 30 MOVAB SFr CRED ERII, R2 [CALCULATE HIGHEST RELATIVE BYTE AND ROUND 
52. 52 7 8F 7 o1 i 04 ASHL #=9,R2,R2 [CALCULATE NUMBER OF MAP REGISTERS TO LOAD 
51 BEDO 01 : 06 POPL RI : R1 => UBA CSR. 
02 Ad 38 91 01 6 CMPB Re UBMD$B_NUMREG (RO) ENOUGH MAP REGISTERS ASSIGNED? 
28 =o1E D 8 BGEQU 40$ :IF GEQU NO 
00 €F O15F 10 EXTZV #VECSV -HAPREG, - : GET STARTING REGISTER 
OF 1 11 #VECSS"MAPRE 
50 60 é 1g UBMD$W ~HAPREGLRO) , RO 
51 9800 C14 DE 164 314 MOVAL CORPS MAP(R1)(ROJ,R1 :GET ADDRESS OF FIRST MAP REGISTER TO LOAD 
CC AS) «(OO OCO16A— 315 MOVL CORP c CA SVAPTECR ),RO GET ADDRESS OF PAGE TABLE 
53 : bg 1 : 16 20$: MOVL [GET NEXT PAGE TABLE ENTRY 
1 1 i BLSS shy. SIF LSS VALID PAGE TABLE ENTRY 
FFSE 30 01 18 BSBW IOCSPTETOPF :GET PFN FROM INVALID PT 
53 0B 15 24 F 176 319 308 INSV = RG, #21,811 RS :INSERT VALID, BYTE OFFSET, AND DATAPATH 
81 3 pO 0178 320 MOVL R3.CRI iss [LOAD UBA MAP REGISTER 


ae 
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V04= LOAD UNIBUS ADAPTER MAP REGISTERS FOR UD 5-SEP=1984 03:44:18 [SYS.SRCJLOADMREG.MAR; 1 
ED 52 «FS «(017 1 SOBGTR R2,20$ ;ANY MORE TO LOAD? 
1 4 01 : CLRL (RI) ‘LOAD INVALID MAP ENTRY 
53. soBE i ; nova (SP)+,R3 ;RESTORE REGISTERS 
01 $ ¢5 40$: BUG CHECK UBMAPEXCED, FATAL ‘ UNIBUS MAP REGISTER ALLOCATION EXCEEDED 
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~— table J (1) 


S 
« SRCJLOADMREG.MAR; 1 


= 00000000 
Byes LEAVETEEMT eeereere =X 8 
BUGS UBMAPEXCED eeeeeeee §8=6X 
CDRP LBCNT = FFFFFFD2 
CDRPSL_SVAPTE = FFFFFFCC 
CDRPSL_UBARSRCE = 000000 f 
CORPSW-BOFF Fa A npDD 
CRBSL_INTD = 90000024 | 
GLOBAC QOOOOOCA R 0 
1OCSLOADMBAMAP 44 00 RG 0 
IOCSLOADUBAMAP 0000061 RG 0 
IOCSLOADUBAMAPA 444 ed RG 8 
IOCSLOADUBAMAPN 0 58 RG 
IOCSLUBAUDAMAP 00000127 RG 0 
IOCSPTETOPFN 000000D4 RG 0 
$._BC = 00000010 
Lo = 00000800 
MBASL VAR = 0000000C 
MMGSGC_GPTBASE eeeeeeee =X og 
MMGSGL_SPTBASE eeeeeeee =X 0 
PDTSL_ADP = 000000E0 
PTESM_GPTX = OO3FFFFF 
PTESM_TYPO = 00400000 
PTESM_TYP1 = 04000000 
PTESV_TYPO = 00000016 
PTESV_TYP1 = QO000001A 
$L_MAP = 44449 
UBASV_MAP_DPD = 0000001 
UBASV_MAP_ VALID = 0000001F 
$8 _DATAPATH = 00000003 
a EG = 44 4 
$W_MAPREG = 00000000 
uCBSL_CRB = aie ae te 
UCBSL_SVAPTE = 00000078 
UCBSW_BCNT = 0000007E 
UCBS$W_BOFF = 0000007C 
VASS_0PN = 00000015 
VASV_VPN = 00000009 
VEC$B_DATAPATH z 90000013 
VECSB_ = 00000012 
VECSL_ADP = 00000014 
VEC$S~DATAPATH = 00000005 
VECSS_MAPR = 0000000F 
VECS$V_DATAPATH = sts 9 
VECSV_LWAE = 000 
VECSV_MAPREG = i446 
VEC$W_MAPREG = 0000001 
bore e ree eet ew ewes + 
! ; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
_ ‘ a. Oe -) NOPIC USR CON ABS LCL oe NOEXE NORD wont NOVEC BYTE 
SABSS 0000000 on }{ 9.) NOPIC USR CON ABS LCL NOSHR EXE RD T NOVEC BYTE 
Ww IONONPAGED $b000% -) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD URT NOVEC BYTE 
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VAX-11 Macro Run Statistics -SEP=1984 SYS.SRCJLOADMREG.MAR; 1 


yocsr sen ee ese eee es een eeas + 


! Performance indicators ! 
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Phase Page faults CPU Time Elapsed Tim 
Initialization 0 00:00:00.09 0:00:01.41 
Command processing 109 8; : 0:33 0:00: -18 
Pass 1 287 0:00:08.9 : 4 28 
Symbol table sort ! 0:00:01.41 0:00:03.5 
Pass 2 7 8: : 4 8: : 38 
Symbol table output 6 :00:00.0 :00:00. 
Psect synopsis output § 0:00: 8° Ba 0:00:00.03 
Cross-reference output 3:88: 0. ° 0:00:00.00 
Assembler run totals 509 0:00:12.7 00:00:36.07 


The working set Limit was 1200 pages. 
49798 bytes (98 pages) of virtual memory were used to buffer the intermediate code. 
There were 50 pages of symbol table space allocated to hold 913 non-local and 16 local symbols. 
326 source Lines were read in Pass 1, producing 14 object records in Pass 2. 
0 pages of virtual memory were used to define 19 macros. 


+ + 
H Macro Library statistics H 


Macro Library name Macros defined 
-$3 5$0UA28:(CSYS.OBJJLIB.MLB;1 12 
$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
TOTALS (all Libraries) 16 


1012 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:LOADMREG/OBJ=OBJ$:LOADMREG MSRC$:LOADMREG/UPDATE=(ENHS:LOADMREG) +EXECMLS/LIB 
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